/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / efs / dired-rgxp.elc.z / dired-rgxp.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 33 |on Mon M|ar  9 13|
|00000040| 3a 30 30 3a 32 39 20 31 | 39 39 38 0a 3b 3b 3b 20 |:00:29 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 65 66 73 2f |s-20.3/l|isp/efs/|
|000000a0| 64 69 72 65 64 2d 72 67 | 78 70 2e 65 6c 0a 3b 3b |dired-rg|xp.el.;;|
|000000b0| 3b 20 65 6d 61 63 73 20 | 76 65 72 73 69 6f 6e 20 |; emacs |version |
|000000c0| 32 30 2e 34 20 22 45 6d | 65 72 61 6c 64 22 20 58 |20.4 "Em|erald" X|
|000000d0| 45 6d 61 63 73 20 20 4c | 75 63 69 64 2e 0a 3b 3b |Emacs  L|ucid..;;|
|000000e0| 3b 20 62 79 74 65 63 6f | 6d 70 20 76 65 72 73 69 |; byteco|mp versi|
|000000f0| 6f 6e 20 32 2e 32 35 20 | 58 45 6d 61 63 73 3b 20 |on 2.25 |XEmacs; |
|00000100| 32 32 2d 4d 61 72 2d 39 | 36 2e 0a 3b 3b 3b 20 6f |22-Mar-9|6..;;; o|
|00000110| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 20 69 73 20 6f |ptimizat|ion is o|
|00000120| 6e 2e 0a 3b 3b 3b 20 74 | 68 69 73 20 66 69 6c 65 |n..;;; t|his file|
|00000130| 20 75 73 65 73 20 6f 70 | 63 6f 64 65 73 20 77 68 | uses op|codes wh|
|00000140| 69 63 68 20 64 6f 20 6e | 6f 74 20 65 78 69 73 74 |ich do n|ot exist|
|00000150| 20 69 6e 20 45 6d 61 63 | 73 20 31 39 2e 0a 0a 28 | in Emac|s 19...(|
|00000160| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000170| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000180| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000190| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|000001a0| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|000001b0| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on)..   |  (strin|
|000001c0| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|000001d0| 72 73 69 6f 6e 20 22 32 | 30 22 29 29 29 0a 20 20 |rsion "2|0"))).  |
|000001e0| 20 20 28 65 72 72 6f 72 | 20 22 60 64 69 72 65 64 |  (error| "`dired|
|000001f0| 2d 72 67 78 70 2e 65 6c | 27 20 77 61 73 20 63 6f |-rgxp.el|' was co|
|00000200| 6d 70 69 6c 65 64 20 66 | 6f 72 20 45 6d 61 63 73 |mpiled f|or Emacs|
|00000210| 20 32 30 22 29 29 0a 0a | 28 6f 72 20 28 62 6f 75 | 20"))..|(or (bou|
|00000220| 6e 64 70 20 27 63 75 72 | 72 65 6e 74 2d 6c 6f 61 |ndp 'cur|rent-loa|
|00000230| 64 2d 6c 69 73 74 29 20 | 28 73 65 74 71 20 63 75 |d-list) |(setq cu|
|00000240| 72 72 65 6e 74 2d 6c 6f | 61 64 2d 6c 69 73 74 20 |rrent-lo|ad-list |
|00000250| 6e 69 6c 29 29 0a 0a 0a | 28 62 79 74 65 2d 63 6f |nil))...|(byte-co|
|00000260| 64 65 20 22 c0 c1 21 88 | c2 c3 21 88 c4 c5 21 ac |de "..!.|..!...!.|
|00000270| 82 c6 15 c5 0e 07 42 16 | 07 c6 87 22 20 5b 70 72 |......B.|..." [pr|
|00000280| 6f 76 69 64 65 20 64 69 | 72 65 64 2d 72 67 78 70 |ovide di|red-rgxp|
|00000290| 20 72 65 71 75 69 72 65 | 20 64 69 72 65 64 20 62 | require| dired b|
|000002a0| 6f 75 6e 64 70 20 64 69 | 72 65 64 2d 66 6c 61 67 |oundp di|red-flag|
|000002b0| 67 69 6e 67 2d 72 65 67 | 65 78 70 20 6e 69 6c 20 |ging-reg|exp nil |
|000002c0| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|000002d0| 74 5d 20 32 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |t] 2).(d|efalias |
|000002e0| 27 64 69 72 65 64 2d 64 | 6f 2d 63 72 65 61 74 65 |'dired-d|o-create|
|000002f0| 2d 66 69 6c 65 73 2d 72 | 65 67 65 78 70 20 23 5b |-files-r|egexp #[|
|00000300| 28 66 69 6c 65 2d 63 72 | 65 61 74 6f 72 20 6f 70 |(file-cr|eator op|
|00000310| 65 72 61 74 69 6f 6e 20 | 61 72 67 20 72 65 67 65 |eration |arg rege|
|00000320| 78 70 20 6e 65 77 6e 61 | 6d 65 20 26 6f 70 74 69 |xp newna|me &opti|
|00000330| 6f 6e 61 6c 20 77 68 6f | 6c 65 2d 70 61 74 68 20 |onal who|le-path |
|00000340| 6d 61 72 6b 65 72 2d 63 | 68 61 72 29 20 22 c0 c1 |marker-c|har) "..|
|00000350| 5c 6e 5c 22 1b 0c ab 9f | c5 c6 c7 c8 c9 0e 5c 6e |\n\"....|......\n|
|00000360| cb 0e 0c 46 44 43 cd c8 | ce cf d0 0e 11 cb 0e 5c |...FDC..|.......\|
|00000370| 6e af 06 45 c8 46 45 aa | 9d c5 d2 c7 c8 c9 0e 5c |n..E.FE.|.......\|
|00000380| 6e d3 0e 0c 46 44 43 cd | c8 ce d4 d0 0e 11 d5 0e |n...FDC.|........|
|00000390| 5c 6e af 06 45 d6 46 45 | 1e 17 0e 11 d8 50 1e 19 |\n..E.FE|.....P..|
|000003a0| da db 0e 11 97 0e 11 97 | 23 1e 1c c5 dd c7 de 0e |........|#.......|
|000003b0| 1c 44 43 df e0 0e 19 e1 | e2 af 05 45 45 1e 23 e4 |.DC.....|...EE.#.|
|000003c0| 0e 25 0e 11 0b 0e 17 0e | 26 0e 23 26 06 2d 87 22 |.%......|&.#&.-."|
|000003d0| 20 5b 64 69 72 65 64 2d | 67 65 74 2d 6d 61 72 6b | [dired-|get-mark|
|000003e0| 65 64 2d 66 69 6c 65 73 | 20 6e 69 6c 20 61 72 67 |ed-files| nil arg|
|000003f0| 20 66 6e 2d 6c 69 73 74 | 20 77 68 6f 6c 65 2d 70 | fn-list| whole-p|
|00000400| 61 74 68 20 6c 61 6d 62 | 64 61 20 28 66 72 6f 6d |ath lamb|da (from|
|00000410| 29 20 6c 65 74 20 74 6f | 20 64 69 72 65 64 2d 73 |) let to| dired-s|
|00000420| 74 72 69 6e 67 2d 72 65 | 70 6c 61 63 65 2d 6d 61 |tring-re|place-ma|
|00000430| 74 63 68 20 72 65 67 65 | 78 70 20 66 72 6f 6d 20 |tch rege|xp from |
|00000440| 6e 65 77 6e 61 6d 65 20 | 6f 72 20 64 69 72 65 64 |newname |or dired|
|00000450| 2d 6c 6f 67 20 28 62 75 | 66 66 65 72 2d 6e 61 6d |-log (bu|ffer-nam|
|00000460| 65 20 28 63 75 72 72 65 | 6e 74 2d 62 75 66 66 65 |e (curre|nt-buffe|
|00000470| 72 29 29 20 22 25 73 3a | 20 25 73 20 64 69 64 20 |r)) "%s:| %s did |
|00000480| 6e 6f 74 20 6d 61 74 63 | 68 20 72 65 67 65 78 70 |not matc|h regexp|
|00000490| 20 25 73 5c 6e 22 20 6f | 70 65 72 61 74 69 6f 6e | %s\n" o|peration|
|000004a0| 20 28 66 72 6f 6d 29 20 | 28 66 69 6c 65 2d 6e 61 | (from) |(file-na|
|000004b0| 6d 65 2d 6e 6f 6e 64 69 | 72 65 63 74 6f 72 79 20 |me-nondi|rectory |
|000004c0| 66 72 6f 6d 29 20 28 62 | 75 66 66 65 72 2d 6e 61 |from) (b|uffer-na|
|000004d0| 6d 65 20 28 63 75 72 72 | 65 6e 74 2d 62 75 66 66 |me (curr|ent-buff|
|000004e0| 65 72 29 29 20 28 66 69 | 6c 65 2d 6e 61 6d 65 2d |er)) (fi|le-name-|
|000004f0| 6e 6f 6e 64 69 72 65 63 | 74 6f 72 79 20 66 72 6f |nondirec|tory fro|
|00000500| 6d 29 20 28 61 6e 64 20 | 74 6f 20 28 65 78 70 61 |m) (and |to (expa|
|00000510| 6e 64 2d 66 69 6c 65 2d | 6e 61 6d 65 20 74 6f 20 |nd-file-|name to |
|00000520| 28 66 69 6c 65 2d 6e 61 | 6d 65 2d 64 69 72 65 63 |(file-na|me-direc|
|00000530| 74 6f 72 79 20 66 72 6f | 6d 29 29 29 20 6e 61 6d |tory fro|m))) nam|
|00000540| 65 2d 63 6f 6e 73 74 72 | 75 63 74 6f 72 20 22 20 |e-constr|uctor " |
|00000550| 60 25 73 27 20 74 6f 20 | 60 25 73 27 3f 22 20 6f |`%s' to |`%s'?" o|
|00000560| 70 65 72 61 74 69 6f 6e | 2d 70 72 6f 6d 70 74 20 |peration|-prompt |
|00000570| 66 6f 72 6d 61 74 20 22 | 54 79 70 65 20 53 50 43 |format "|Type SPC|
|00000580| 20 6f 72 20 60 79 27 20 | 74 6f 20 25 73 20 6f 6e | or `y' |to %s on|
|00000590| 65 20 6d 61 74 63 68 2c | 20 44 45 4c 20 6f 72 20 |e match,| DEL or |
|000005a0| 60 6e 27 20 74 6f 20 73 | 6b 69 70 20 74 6f 20 6e |`n' to s|kip to n|
|000005b0| 65 78 74 2c 5c 6e 60 21 | 27 20 74 6f 20 25 73 20 |ext,\n`!|' to %s |
|000005c0| 61 6c 6c 20 72 65 6d 61 | 69 6e 69 6e 67 20 6d 61 |all rema|ining ma|
|000005d0| 74 63 68 65 73 20 77 69 | 74 68 20 6e 6f 20 6d 6f |tches wi|th no mo|
|000005e0| 72 65 20 71 75 65 73 74 | 69 6f 6e 73 2e 22 20 72 |re quest|ions." r|
|000005f0| 65 6e 61 6d 65 2d 72 65 | 67 65 78 70 2d 68 65 6c |ename-re|gexp-hel|
|00000600| 70 2d 66 6f 72 6d 20 28 | 66 72 6f 6d 20 74 6f 29 |p-form (|from to)|
|00000610| 20 68 65 6c 70 2d 66 6f | 72 6d 20 64 69 72 65 64 | help-fo|rm dired|
|00000620| 2d 71 75 65 72 79 20 27 | 64 69 72 65 64 2d 66 69 |-query '|dired-fi|
|00000630| 6c 65 2d 63 72 65 61 74 | 6f 72 2d 71 75 65 72 79 |le-creat|or-query|
|00000640| 20 28 64 69 72 65 64 2d | 61 62 62 72 65 76 69 61 | (dired-|abbrevia|
|00000650| 74 65 2d 66 69 6c 65 2d | 6e 61 6d 65 20 66 72 6f |te-file-|name fro|
|00000660| 6d 29 20 28 64 69 72 65 | 64 2d 61 62 62 72 65 76 |m) (dire|d-abbrev|
|00000670| 69 61 74 65 2d 66 69 6c | 65 2d 6e 61 6d 65 20 74 |iate-fil|e-name t|
|00000680| 6f 29 20 71 75 65 72 79 | 20 64 69 72 65 64 2d 63 |o) query| dired-c|
|00000690| 72 65 61 74 65 2d 66 69 | 6c 65 73 20 66 69 6c 65 |reate-fi|les file|
|000006a0| 2d 63 72 65 61 74 6f 72 | 20 6d 61 72 6b 65 72 2d |-creator| marker-|
|000006b0| 63 68 61 72 5d 20 31 32 | 5d 29 0a 28 64 65 66 61 |char] 12|]).(defa|
|000006c0| 6c 69 61 73 20 27 64 69 | 72 65 64 2d 6d 61 72 6b |lias 'di|red-mark|
|000006d0| 2d 72 65 61 64 2d 72 65 | 67 65 78 70 20 23 5b 28 |-read-re|gexp #[(|
|000006e0| 6f 70 65 72 61 74 69 6f | 6e 29 20 22 c0 09 21 c2 |operatio|n) "..!.|
|000006f0| 6b 89 1b 3f ad 81 09 1c | c5 0b ab 83 c6 aa 81 c7 |k..?....|........|
|00000700| 0e 08 c9 51 0e 5c 6e cb | 23 1e 0c cd 0b ab 83 c6 |...Q.\n.|#.......|
|00000710| aa 81 c7 0e 08 ce 0e 0c | cf b0 05 0b 3f ad 82 d0 |........|....?...|
|00000720| 20 5c 22 1e 11 0e 0c 0e | 11 0c 0b 46 2c 87 22 20 | \".....|...F,." |
|00000730| 5b 70 72 65 66 69 78 2d | 6e 75 6d 65 72 69 63 2d |[prefix-|numeric-|
|00000740| 76 61 6c 75 65 20 63 75 | 72 72 65 6e 74 2d 70 72 |value cu|rrent-pr|
|00000750| 65 66 69 78 2d 61 72 67 | 20 30 20 77 68 6f 6c 65 |efix-arg| 0 whole|
|00000760| 2d 70 61 74 68 20 61 72 | 67 20 64 69 72 65 64 2d |-path ar|g dired-|
|00000770| 72 65 61 64 2d 77 69 74 | 68 2d 68 69 73 74 6f 72 |read-wit|h-histor|
|00000780| 79 20 22 50 61 74 68 20 | 22 20 22 22 20 6f 70 65 |y "Path |" "" ope|
|00000790| 72 61 74 69 6f 6e 20 22 | 20 66 72 6f 6d 20 28 72 |ration "| from (r|
|000007a0| 65 67 65 78 70 29 3a 20 | 22 20 64 69 72 65 64 2d |egexp): |" dired-|
|000007b0| 66 6c 61 67 67 69 6e 67 | 2d 72 65 67 65 78 70 20 |flagging|-regexp |
|000007c0| 64 69 72 65 64 2d 72 65 | 67 65 78 70 2d 68 69 73 |dired-re|gexp-his|
|000007d0| 74 6f 72 79 20 72 65 67 | 65 78 70 20 72 65 61 64 |tory reg|exp read|
|000007e0| 2d 73 74 72 69 6e 67 20 | 22 20 22 20 22 20 74 6f |-string |" " " to|
|000007f0| 3a 20 22 20 64 69 72 65 | 64 2d 64 77 69 6d 2d 74 |: " dire|d-dwim-t|
|00000800| 61 72 67 65 74 2d 64 69 | 72 65 63 74 6f 72 79 20 |arget-di|rectory |
|00000810| 6e 65 77 6e 61 6d 65 5d | 20 37 5d 29 0a 23 40 35 |newname]| 7]).#@5|
|00000820| 30 38 20 5c 3c 64 69 72 | 65 64 2d 6d 6f 64 65 2d |08 \<dir|ed-mode-|
|00000830| 6d 61 70 3e 4d 61 72 6b | 20 61 6c 6c 20 66 69 6c |map>Mark| all fil|
|00000840| 65 73 20 6d 61 74 63 68 | 69 6e 67 20 52 45 47 45 |es match|ing REGE|
|00000850| 58 50 20 66 6f 72 20 75 | 73 65 20 69 6e 20 6c 61 |XP for u|se in la|
|00000860| 74 65 72 20 63 6f 6d 6d | 61 6e 64 73 2e 0a 0a 41 |ter comm|ands...A|
|00000870| 20 70 72 65 66 69 78 20 | 61 72 67 75 6d 65 6e 74 | prefix |argument|
|00000880| 20 5c 5b 75 6e 69 76 65 | 72 73 61 6c 2d 61 72 67 | \[unive|rsal-arg|
|00000890| 75 6d 65 6e 74 5d 20 6d | 65 61 6e 73 20 74 6f 20 |ument] m|eans to |
|000008a0| 75 6e 6d 61 72 6b 20 74 | 68 65 6d 20 69 6e 73 74 |unmark t|hem inst|
|000008b0| 65 61 64 2e 0a 0a 41 20 | 70 72 65 66 69 78 20 61 |ead...A |prefix a|
|000008c0| 72 67 75 6d 65 6e 74 20 | 30 20 6d 65 61 6e 73 20 |rgument |0 means |
|000008d0| 74 6f 20 6d 61 72 6b 20 | 74 68 65 20 66 69 6c 65 |to mark |the file|
|000008e0| 73 20 74 68 61 74 20 77 | 6f 75 6c 64 20 6d 65 20 |s that w|ould me |
|000008f0| 6f 6d 69 74 74 65 64 20 | 62 79 20 5c 5b 64 69 72 |omitted |by \[dir|
|00000900| 65 64 2d 6f 6d 69 74 2d | 74 6f 67 67 6c 65 5d 2e |ed-omit-|toggle].|
|00000910| 0a 41 20 70 72 65 66 69 | 78 20 61 72 67 75 6d 65 |.A prefi|x argume|
|00000920| 6e 74 20 31 20 6d 65 61 | 6e 73 20 74 6f 20 75 6e |nt 1 mea|ns to un|
|00000930| 6d 61 72 6b 20 74 68 65 | 20 66 69 6c 65 73 20 74 |mark the| files t|
|00000940| 68 61 74 20 77 6f 75 6c | 64 20 62 65 20 6f 6d 69 |hat woul|d be omi|
|00000950| 74 74 65 64 20 62 79 20 | 5c 5b 64 69 72 65 64 2d |tted by |\[dired-|
|00000960| 6f 6d 69 74 2d 74 6f 67 | 67 6c 65 5d 2e 0a 0a 52 |omit-tog|gle]...R|
|00000970| 45 47 45 58 50 20 69 73 | 20 61 6e 20 45 6d 61 63 |EGEXP is| an Emac|
|00000980| 73 20 72 65 67 65 78 70 | 2c 20 6e 6f 74 20 61 20 |s regexp|, not a |
|00000990| 73 68 65 6c 6c 20 77 69 | 6c 64 63 61 72 64 2e 20 |shell wi|ldcard. |
|000009a0| 20 54 68 75 73 2c 20 75 | 73 65 20 22 5c 2e 6f 24 | Thus, u|se "\.o$|
|000009b0| 22 20 66 6f 72 0a 6f 62 | 6a 65 63 74 20 66 69 6c |" for.ob|ject fil|
|000009c0| 65 73 2d 2d 6a 75 73 74 | 20 60 2e 6f 27 20 77 69 |es--just| `.o' wi|
|000009d0| 6c 6c 20 6d 61 72 6b 20 | 6d 6f 72 65 20 74 68 61 |ll mark |more tha|
|000009e0| 6e 20 79 6f 75 20 6d 69 | 67 68 74 20 74 68 69 6e |n you mi|ght thin|
|000009f0| 6b 2e 20 20 54 68 65 20 | 66 69 6c 65 73 20 22 2e |k.  The |files ".|
|00000a00| 22 0a 61 6e 64 20 22 2e | 2e 22 20 61 72 65 20 6e |".and ".|." are n|
|00000a10| 65 76 65 72 20 6d 61 72 | 6b 65 64 2e 0a 1f 0a 28 |ever mar|ked....(|
|00000a20| 64 65 66 61 6c 69 61 73 | 20 27 64 69 72 65 64 2d |defalias| 'dired-|
|00000a30| 6d 61 72 6b 2d 66 69 6c | 65 73 2d 72 65 67 65 78 |mark-fil|es-regex|
|00000a40| 70 20 23 5b 28 72 65 67 | 65 78 70 20 26 6f 70 74 |p #[(reg|exp &opt|
|00000a50| 69 6f 6e 61 6c 20 6d 61 | 72 6b 65 72 2d 63 68 61 |ional ma|rker-cha|
|00000a60| 72 20 6f 6d 69 73 73 69 | 6f 6e 2d 66 69 6c 65 73 |r omissi|on-files|
|00000a70| 2d 70 29 20 22 08 ae 81 | 09 19 5c 6e ab 83 c3 aa |-p) "...|..\n....|
|00000a80| 81 c4 c5 c6 89 1e 07 1e | 08 1e 09 1e 5c 6e 8a 0e |........|....\n..|
|00000a90| 5c 6e ab 86 cb cc 0e 5c | 6e 5c 22 88 65 62 88 6d |\n.....\|n\".eb.m|
|00000aa0| ac b7 cd 0e 0e 21 ac ac | 6c ac a9 cf c6 d0 5c 22 |.....!..|l.....\"|
|00000ab0| 89 1e 11 ad 88 d2 0e 13 | d4 0e 11 21 5c 22 29 ab |........|...!\").|
|00000ac0| 95 d5 67 09 5c 22 ac 8f | 60 16 08 d6 0e 08 67 09 |..g.\"..|`.....g.|
|00000ad0| 23 88 0e 09 54 16 09 d7 | 79 88 aa 46 0e 5c 6e ab |#...T...|y..F.\n.|
|00000ae0| a0 cb d8 0e 09 0e 5c 6e | d9 0e 09 21 09 da 61 ab |......\n|...!..a.|
|00000af0| 83 db aa 81 dc 09 0e 1d | 61 ab 83 de aa 81 df 26 |........|a......&|
|00000b00| 06 88 29 0e 09 c5 56 ad | 82 0e 09 2d 87 22 20 5b |..)...V.|...-." [|
|00000b10| 6d 61 72 6b 65 72 2d 63 | 68 61 72 20 64 69 72 65 |marker-c|har dire|
|00000b20| 64 2d 6d 61 72 6b 65 72 | 2d 63 68 61 72 20 6f 6d |d-marker|-char om|
|00000b30| 69 73 73 69 6f 6e 2d 66 | 69 6c 65 73 2d 70 20 22 |ission-f|iles-p "|
|00000b40| 6f 6d 69 73 73 69 6f 6e | 20 63 61 6e 64 69 64 61 |omission| candida|
|00000b50| 74 65 20 66 69 6c 65 22 | 20 22 6d 61 74 63 68 69 |te file"| "matchi|
|00000b60| 6e 67 20 66 69 6c 65 22 | 20 30 20 6e 69 6c 20 62 |ng file"| 0 nil b|
|00000b70| 75 66 66 65 72 2d 72 65 | 61 64 2d 6f 6e 6c 79 20 |uffer-re|ad-only |
|00000b80| 70 74 20 63 6f 75 6e 74 | 20 6d 73 67 20 6d 65 73 |pt count| msg mes|
|00000b90| 73 61 67 65 20 22 4d 61 | 72 6b 69 6e 67 20 25 73 |sage "Ma|rking %s|
|00000ba0| 73 2e 2e 2e 22 20 6c 6f | 6f 6b 69 6e 67 2d 61 74 |s..." lo|oking-at|
|00000bb0| 20 64 69 72 65 64 2d 72 | 65 2d 64 6f 74 20 64 69 | dired-r|e-dot di|
|00000bc0| 72 65 64 2d 67 65 74 2d | 66 69 6c 65 6e 61 6d 65 |red-get-|filename|
|00000bd0| 20 74 20 66 6e 20 73 74 | 72 69 6e 67 2d 6d 61 74 | t fn st|ring-mat|
|00000be0| 63 68 20 72 65 67 65 78 | 70 20 66 69 6c 65 2d 6e |ch regex|p file-n|
|00000bf0| 61 6d 65 2d 6e 6f 6e 64 | 69 72 65 63 74 6f 72 79 |ame-nond|irectory|
|00000c00| 20 63 68 61 72 2d 65 71 | 75 61 6c 20 64 69 72 65 | char-eq|ual dire|
|00000c10| 64 2d 73 75 62 73 74 69 | 74 75 74 65 2d 6d 61 72 |d-substi|tute-mar|
|00000c20| 6b 65 72 20 31 20 22 25 | 73 20 25 73 25 73 20 25 |ker 1 "%|s %s%s %|
|00000c30| 73 25 73 2e 22 20 64 69 | 72 65 64 2d 70 6c 75 72 |s%s." di|red-plur|
|00000c40| 61 6c 2d 73 20 3f 5c 20 | 20 22 75 6e 22 20 22 22 |al-s ?\ | "un" ""|
|00000c50| 20 64 69 72 65 64 2d 64 | 65 6c 2d 6d 61 72 6b 65 | dired-d|el-marke|
|00000c60| 72 20 22 66 6c 61 67 67 | 65 64 22 20 22 6d 61 72 |r "flagg|ed" "mar|
|00000c70| 6b 65 64 22 5d 20 39 20 | 28 23 24 20 2e 20 32 30 |ked"] 9 |(#$ . 20|
|00000c80| 38 33 29 20 28 6c 65 74 | 20 28 28 75 6e 6d 61 72 |83) (let| ((unmar|
|00000c90| 6b 20 28 61 6e 64 20 28 | 6e 6f 74 20 28 65 71 20 |k (and (|not (eq |
|00000ca0| 63 75 72 72 65 6e 74 2d | 70 72 65 66 69 78 2d 61 |current-|prefix-a|
|00000cb0| 72 67 20 30 29 29 20 63 | 75 72 72 65 6e 74 2d 70 |rg 0)) c|urrent-p|
|00000cc0| 72 65 66 69 78 2d 61 72 | 67 29 29 20 28 6f 6d 2d |refix-ar|g)) (om-|
|00000cd0| 66 69 6c 65 73 2d 70 20 | 28 6d 65 6d 71 20 63 75 |files-p |(memq cu|
|00000ce0| 72 72 65 6e 74 2d 70 72 | 65 66 69 78 2d 61 72 67 |rrent-pr|efix-arg|
|00000cf0| 20 27 28 30 20 31 29 29 | 29 20 72 65 67 65 78 70 | '(0 1))|) regexp|
|00000d00| 29 20 28 69 66 20 6f 6d | 2d 66 69 6c 65 73 2d 70 |) (if om|-files-p|
|00000d10| 20 28 73 65 74 71 20 72 | 65 67 65 78 70 20 28 64 | (setq r|egexp (d|
|00000d20| 69 72 65 64 2d 6f 6d 69 | 74 2d 72 65 67 65 78 70 |ired-omi|t-regexp|
|00000d30| 29 29 20 28 73 65 74 71 | 20 72 65 67 65 78 70 20 |)) (setq| regexp |
|00000d40| 28 64 69 72 65 64 2d 72 | 65 61 64 2d 77 69 74 68 |(dired-r|ead-with|
|00000d50| 2d 68 69 73 74 6f 72 79 | 20 28 63 6f 6e 63 61 74 |-history| (concat|
|00000d60| 20 28 69 66 20 75 6e 6d | 61 72 6b 20 22 55 6e 6d | (if unm|ark "Unm|
|00000d70| 61 72 6b 22 20 22 4d 61 | 72 6b 22 29 20 22 20 66 |ark" "Ma|rk") " f|
|00000d80| 69 6c 65 73 20 28 72 65 | 67 65 78 70 29 3a 20 22 |iles (re|gexp): "|
|00000d90| 29 20 6e 69 6c 20 27 64 | 69 72 65 64 2d 72 65 67 |) nil 'd|ired-reg|
|00000da0| 65 78 70 2d 68 69 73 74 | 6f 72 79 29 29 29 20 28 |exp-hist|ory))) (|
|00000db0| 6c 69 73 74 20 72 65 67 | 65 78 70 20 28 69 66 20 |list reg|exp (if |
|00000dc0| 75 6e 6d 61 72 6b 20 3f | 5c 20 29 20 6f 6d 2d 66 |unmark ?|\ ) om-f|
|00000dd0| 69 6c 65 73 2d 70 29 29 | 5d 29 0a 23 40 32 33 36 |iles-p))|]).#@236|
|00000de0| 20 49 6e 20 64 69 72 65 | 64 2c 20 66 6c 61 67 20 | In dire|d, flag |
|00000df0| 61 6c 6c 20 66 69 6c 65 | 73 20 63 6f 6e 74 61 69 |all file|s contai|
|00000e00| 6e 69 6e 67 20 74 68 65 | 20 73 70 65 63 69 66 69 |ning the| specifi|
|00000e10| 65 64 20 52 45 47 45 58 | 50 20 66 6f 72 20 64 65 |ed REGEX|P for de|
|00000e20| 6c 65 74 69 6f 6e 2e 0a | 54 68 65 20 6d 61 74 63 |letion..|The matc|
|00000e30| 68 20 69 73 20 61 67 61 | 69 6e 73 74 20 74 68 65 |h is aga|inst the|
|00000e40| 20 6e 6f 6e 2d 64 69 72 | 65 63 74 6f 72 79 20 70 | non-dir|ectory p|
|00000e50| 61 72 74 20 6f 66 20 74 | 68 65 20 66 69 6c 65 6e |art of t|he filen|
|00000e60| 61 6d 65 2e 20 20 55 73 | 65 20 60 5e 27 0a 20 20 |ame.  Us|e `^'.  |
|00000e70| 61 6e 64 20 60 24 27 20 | 74 6f 20 61 6e 63 68 6f |and `$' |to ancho|
|00000e80| 72 20 6d 61 74 63 68 65 | 73 2e 20 20 45 78 63 6c |r matche|s.  Excl|
|00000e90| 75 64 65 20 73 75 62 64 | 69 72 73 20 62 79 20 68 |ude subd|irs by h|
|00000ea0| 69 64 69 6e 67 20 74 68 | 65 6d 2e 0a 60 2e 27 20 |iding th|em..`.' |
|00000eb0| 61 6e 64 20 60 2e 2e 27 | 20 61 72 65 20 6e 65 76 |and `..'| are nev|
|00000ec0| 65 72 20 66 6c 61 67 67 | 65 64 2e 1f 0a 28 64 65 |er flagg|ed...(de|
|00000ed0| 66 61 6c 69 61 73 20 27 | 64 69 72 65 64 2d 66 6c |falias '|dired-fl|
|00000ee0| 61 67 2d 66 69 6c 65 73 | 2d 72 65 67 65 78 70 20 |ag-files|-regexp |
|00000ef0| 23 5b 28 72 65 67 65 78 | 70 29 20 22 c0 09 5c 6e |#[(regex|p) "..\n|
|00000f00| 5c 22 87 22 20 5b 64 69 | 72 65 64 2d 6d 61 72 6b |\"." [di|red-mark|
|00000f10| 2d 66 69 6c 65 73 2d 72 | 65 67 65 78 70 20 72 65 |-files-r|egexp re|
|00000f20| 67 65 78 70 20 64 69 72 | 65 64 2d 64 65 6c 2d 6d |gexp dir|ed-del-m|
|00000f30| 61 72 6b 65 72 5d 20 33 | 20 28 23 24 20 2e 20 33 |arker] 3| (#$ . 3|
|00000f40| 35 35 33 29 20 28 6c 69 | 73 74 20 28 64 69 72 65 |553) (li|st (dire|
|00000f50| 64 2d 72 65 61 64 2d 77 | 69 74 68 2d 68 69 73 74 |d-read-w|ith-hist|
|00000f60| 6f 72 79 20 22 46 6c 61 | 67 20 66 6f 72 20 64 65 |ory "Fla|g for de|
|00000f70| 6c 65 74 69 6f 6e 20 28 | 72 65 67 65 78 70 29 3a |letion (|regexp):|
|00000f80| 20 22 20 6e 69 6c 20 27 | 64 69 72 65 64 2d 72 65 | " nil '|dired-re|
|00000f90| 67 65 78 70 2d 68 69 73 | 74 6f 72 79 29 29 5d 29 |gexp-his|tory))])|
|00000fa0| 0a 23 40 31 31 34 20 4d | 61 72 6b 20 61 6c 6c 20 |.#@114 M|ark all |
|00000fb0| 66 69 6c 65 73 20 77 69 | 74 68 20 61 20 63 65 72 |files wi|th a cer|
|00000fc0| 74 61 69 6e 20 65 78 74 | 65 6e 73 69 6f 6e 20 66 |tain ext|ension f|
|00000fd0| 6f 72 20 75 73 65 20 69 | 6e 20 6c 61 74 65 72 20 |or use i|n later |
|00000fe0| 63 6f 6d 6d 61 6e 64 73 | 2e 0a 41 20 60 2e 27 20 |commands|..A `.' |
|00000ff0| 69 73 20 6e 6f 74 20 70 | 72 65 70 65 6e 64 65 64 |is not p|repended|
|00001000| 20 74 6f 20 74 68 65 20 | 73 74 72 69 6e 67 20 65 | to the |string e|
|00001010| 6e 74 65 72 65 64 2e 1f | 0a 28 64 65 66 61 6c 69 |ntered..|.(defali|
|00001020| 61 73 20 27 64 69 72 65 | 64 2d 6d 61 72 6b 2d 65 |as 'dire|d-mark-e|
|00001030| 78 74 65 6e 73 69 6f 6e | 20 23 5b 28 65 78 74 65 |xtension| #[(exte|
|00001040| 6e 73 69 6f 6e 20 26 6f | 70 74 69 6f 6e 61 6c 20 |nsion &o|ptional |
|00001050| 6d 61 72 6b 65 72 2d 63 | 68 61 72 29 20 22 08 3c |marker-c|har) ".<|
|00001060| ac 83 08 43 10 c1 c2 c3 | c4 c5 08 c6 23 c7 52 0e |...C....|....#.R.|
|00001070| 08 5c 22 87 22 20 5b 65 | 78 74 65 6e 73 69 6f 6e |.\"." [e|xtension|
|00001080| 20 64 69 72 65 64 2d 6d | 61 72 6b 2d 66 69 6c 65 | dired-m|ark-file|
|00001090| 73 2d 72 65 67 65 78 70 | 20 22 2e 22 20 22 5c 5c |s-regexp| "." "\\|
|000010a0| 28 22 20 6d 61 70 63 6f | 6e 63 61 74 20 72 65 67 |(" mapco|ncat reg|
|000010b0| 65 78 70 2d 71 75 6f 74 | 65 20 22 5c 5c 7c 22 20 |exp-quot|e "\\|" |
|000010c0| 22 5c 5c 29 24 22 20 6d | 61 72 6b 65 72 2d 63 68 |"\\)$" m|arker-ch|
|000010d0| 61 72 5d 20 37 20 28 23 | 24 20 2e 20 34 30 30 37 |ar] 7 (#|$ . 4007|
|000010e0| 29 20 22 73 4d 61 72 6b | 20 66 69 6c 65 73 20 77 |) "sMark| files w|
|000010f0| 69 74 68 20 65 78 74 65 | 6e 73 69 6f 6e 3a 20 5c |ith exte|nsion: \|
|00001100| 6e 50 22 5d 29 0a 23 40 | 31 31 31 20 49 6e 20 64 |nP"]).#@|111 In d|
|00001110| 69 72 65 64 2c 20 66 6c | 61 67 20 61 6c 6c 20 66 |ired, fl|ag all f|
|00001120| 69 6c 65 73 20 77 69 74 | 68 20 61 20 63 65 72 74 |iles wit|h a cert|
|00001130| 61 69 6e 20 65 78 74 65 | 6e 73 69 6f 6e 20 66 6f |ain exte|nsion fo|
|00001140| 72 20 64 65 6c 65 74 69 | 6f 6e 2e 0a 41 20 60 2e |r deleti|on..A `.|
|00001150| 27 20 69 73 20 6e 6f 74 | 20 70 72 65 70 65 6e 64 |' is not| prepend|
|00001160| 65 64 20 74 6f 20 74 68 | 65 20 73 74 72 69 6e 67 |ed to th|e string|
|00001170| 20 65 6e 74 65 72 65 64 | 2e 1f 0a 28 64 65 66 61 | entered|...(defa|
|00001180| 6c 69 61 73 20 27 64 69 | 72 65 64 2d 66 6c 61 67 |lias 'di|red-flag|
|00001190| 2d 65 78 74 65 6e 73 69 | 6f 6e 20 23 5b 28 65 78 |-extensi|on #[(ex|
|000011a0| 74 65 6e 73 69 6f 6e 29 | 20 22 c0 09 5c 6e 5c 22 |tension)| "..\n\"|
|000011b0| 87 22 20 5b 64 69 72 65 | 64 2d 6d 61 72 6b 2d 65 |." [dire|d-mark-e|
|000011c0| 78 74 65 6e 73 69 6f 6e | 20 65 78 74 65 6e 73 69 |xtension| extensi|
|000011d0| 6f 6e 20 64 69 72 65 64 | 2d 64 65 6c 2d 6d 61 72 |on dired|-del-mar|
|000011e0| 6b 65 72 5d 20 33 20 28 | 23 24 20 2e 20 34 33 36 |ker] 3 (|#$ . 436|
|000011f0| 34 29 20 22 73 46 6c 61 | 67 20 66 69 6c 65 73 20 |4) "sFla|g files |
|00001200| 77 69 74 68 20 65 78 74 | 65 6e 73 69 6f 6e 3a 20 |with ext|ension: |
|00001210| 22 5d 29 0a 23 40 39 33 | 20 46 6c 61 67 20 66 6f |"]).#@93| Flag fo|
|00001220| 72 20 64 65 6c 65 74 69 | 6f 6e 20 64 69 73 70 65 |r deleti|on dispe|
|00001230| 6e 73 61 62 6c 65 20 66 | 69 6c 65 73 20 63 72 65 |nsable f|iles cre|
|00001240| 61 74 65 64 20 62 79 20 | 50 52 4f 47 52 41 4d 2e |ated by |PROGRAM.|
|00001250| 0a 53 65 65 20 76 61 72 | 69 61 62 6c 65 20 60 64 |.See var|iable `d|
|00001260| 69 72 65 64 2d 63 6c 65 | 61 6e 75 70 2d 61 6c 69 |ired-cle|anup-ali|
|00001270| 73 74 27 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |st'...(d|efalias |
|00001280| 27 64 69 72 65 64 2d 63 | 6c 65 61 6e 75 70 20 23 |'dired-c|leanup #|
|00001290| 5b 28 70 72 6f 67 72 61 | 6d 29 20 22 c0 c1 5c 6e |[(progra|m) "..\n|
|000012a0| 0b 5c 22 41 21 87 22 20 | 5b 64 69 72 65 64 2d 66 |.\"A!." |[dired-f|
|000012b0| 6c 61 67 2d 65 78 74 65 | 6e 73 69 6f 6e 20 61 73 |lag-exte|nsion as|
|000012c0| 73 6f 63 20 70 72 6f 67 | 72 61 6d 20 64 69 72 65 |soc prog|ram dire|
|000012d0| 64 2d 63 6c 65 61 6e 75 | 70 2d 61 6c 69 73 74 5d |d-cleanu|p-alist]|
|000012e0| 20 34 20 28 23 24 20 2e | 20 34 36 33 33 29 20 28 | 4 (#$ .| 4633) (|
|000012f0| 6c 69 73 74 20 28 6c 65 | 74 20 28 28 64 69 72 65 |list (le|t ((dire|
|00001300| 64 2d 63 6c 65 61 6e 75 | 70 2d 68 69 73 74 6f 72 |d-cleanu|p-histor|
|00001310| 79 20 28 61 70 70 65 6e | 64 20 64 69 72 65 64 2d |y (appen|d dired-|
|00001320| 63 6c 65 61 6e 75 70 2d | 68 69 73 74 6f 72 79 20 |cleanup-|history |
|00001330| 28 6d 61 70 63 61 72 20 | 27 63 61 72 20 64 69 72 |(mapcar |'car dir|
|00001340| 65 64 2d 63 6c 65 61 6e | 75 70 2d 61 6c 69 73 74 |ed-clean|up-alist|
|00001350| 29 29 29 29 20 28 64 69 | 72 65 64 2d 63 6f 6d 70 |)))) (di|red-comp|
|00001360| 6c 65 74 69 6e 67 2d 72 | 65 61 64 20 22 43 6c 65 |leting-r|ead "Cle|
|00001370| 61 6e 75 70 20 66 69 6c | 65 73 20 66 6f 72 3a 20 |anup fil|es for: |
|00001380| 22 20 64 69 72 65 64 2d | 63 6c 65 61 6e 75 70 2d |" dired-|cleanup-|
|00001390| 61 6c 69 73 74 20 6e 69 | 6c 20 74 20 6e 69 6c 20 |alist ni|l t nil |
|000013a0| 27 64 69 72 65 64 2d 63 | 6c 65 61 6e 75 70 2d 68 |'dired-c|leanup-h|
|000013b0| 69 73 74 6f 72 79 29 29 | 29 5d 29 0a 23 40 34 34 |istory))|)]).#@44|
|000013c0| 31 20 52 65 6e 61 6d 65 | 20 6d 61 72 6b 65 64 20 |1 Rename| marked |
|000013d0| 66 69 6c 65 73 20 63 6f | 6e 74 61 69 6e 69 6e 67 |files co|ntaining|
|000013e0| 20 52 45 47 45 58 50 20 | 74 6f 20 4e 45 57 4e 41 | REGEXP |to NEWNA|
|000013f0| 4d 45 2e 0a 41 73 20 65 | 61 63 68 20 6d 61 74 63 |ME..As e|ach matc|
|00001400| 68 20 69 73 20 66 6f 75 | 6e 64 2c 20 74 68 65 20 |h is fou|nd, the |
|00001410| 75 73 65 72 20 6d 75 73 | 74 20 74 79 70 65 20 61 |user mus|t type a|
|00001420| 20 63 68 61 72 61 63 74 | 65 72 20 73 61 79 69 6e | charact|er sayin|
|00001430| 67 0a 20 20 77 68 61 74 | 20 74 6f 20 64 6f 20 77 |g.  what| to do w|
|00001440| 69 74 68 20 69 74 2e 20 | 20 46 6f 72 20 64 69 72 |ith it. | For dir|
|00001450| 65 63 74 69 6f 6e 73 2c | 20 74 79 70 65 20 5c 5b |ections,| type \[|
|00001460| 68 65 6c 70 2d 63 6f 6d | 6d 61 6e 64 5d 20 61 74 |help-com|mand] at|
|00001470| 20 74 68 61 74 20 74 69 | 6d 65 2e 0a 4e 45 57 4e | that ti|me..NEWN|
|00001480| 41 4d 45 20 6d 61 79 20 | 63 6f 6e 74 61 69 6e 20 |AME may |contain |
|00001490| 5c 3d 5c 3c 6e 3e 20 6f | 72 20 5c 26 20 61 73 20 |\=\<n> o|r \& as |
|000014a0| 69 6e 20 60 71 75 65 72 | 79 2d 72 65 70 6c 61 63 |in `quer|y-replac|
|000014b0| 65 2d 72 65 67 65 78 70 | 27 2e 0a 52 45 47 45 58 |e-regexp|'..REGEX|
|000014c0| 50 20 64 65 66 61 75 6c | 74 73 20 74 6f 20 74 68 |P defaul|ts to th|
|000014d0| 65 20 6c 61 73 74 20 72 | 65 67 65 78 70 20 75 73 |e last r|egexp us|
|000014e0| 65 64 2e 0a 57 69 74 68 | 20 61 20 7a 65 72 6f 20 |ed..With| a zero |
|000014f0| 70 72 65 66 69 78 20 61 | 72 67 2c 20 72 65 6e 61 |prefix a|rg, rena|
|00001500| 6d 69 6e 67 20 62 79 20 | 72 65 67 65 78 70 20 61 |ming by |regexp a|
|00001510| 66 66 65 63 74 73 20 74 | 68 65 20 63 6f 6d 70 6c |ffects t|he compl|
|00001520| 65 74 65 0a 20 20 70 61 | 74 68 6e 61 6d 65 20 2d |ete.  pa|thname -|
|00001530| 20 75 73 75 61 6c 6c 79 | 20 6f 6e 6c 79 20 74 68 | usually| only th|
|00001540| 65 20 6e 6f 6e 2d 64 69 | 72 65 63 74 6f 72 79 20 |e non-di|rectory |
|00001550| 70 61 72 74 20 6f 66 20 | 66 69 6c 65 20 6e 61 6d |part of |file nam|
|00001560| 65 73 20 69 73 20 75 73 | 65 64 0a 20 20 61 6e 64 |es is us|ed.  and|
|00001570| 20 63 68 61 6e 67 65 64 | 2e 1f 0a 28 64 65 66 61 | changed|...(defa|
|00001580| 6c 69 61 73 20 27 64 69 | 72 65 64 2d 64 6f 2d 72 |lias 'di|red-do-r|
|00001590| 65 6e 61 6d 65 2d 72 65 | 67 65 78 70 20 23 5b 28 |ename-re|gexp #[(|
|000015a0| 72 65 67 65 78 70 20 6e | 65 77 6e 61 6d 65 20 26 |regexp n|ewname &|
|000015b0| 6f 70 74 69 6f 6e 61 6c | 20 61 72 67 20 77 68 6f |optional| arg who|
|000015c0| 6c 65 2d 70 61 74 68 29 | 20 22 c0 c1 c2 0b 0c 0d |le-path)| "......|
|000015d0| 0e 06 0e 07 26 07 87 22 | 20 5b 64 69 72 65 64 2d |....&.."| [dired-|
|000015e0| 64 6f 2d 63 72 65 61 74 | 65 2d 66 69 6c 65 73 2d |do-creat|e-files-|
|000015f0| 72 65 67 65 78 70 20 64 | 69 72 65 64 2d 72 65 6e |regexp d|ired-ren|
|00001600| 61 6d 65 2d 66 69 6c 65 | 20 22 52 65 6e 61 6d 65 |ame-file| "Rename|
|00001610| 22 20 61 72 67 20 72 65 | 67 65 78 70 20 6e 65 77 |" arg re|gexp new|
|00001620| 6e 61 6d 65 20 77 68 6f | 6c 65 2d 70 61 74 68 20 |name who|le-path |
|00001630| 64 69 72 65 64 2d 6b 65 | 65 70 2d 6d 61 72 6b 65 |dired-ke|ep-marke|
|00001640| 72 2d 72 65 6e 61 6d 65 | 5d 20 38 20 28 23 24 20 |r-rename|] 8 (#$ |
|00001650| 2e 20 35 30 35 38 29 20 | 28 64 69 72 65 64 2d 6d |. 5058) |(dired-m|
|00001660| 61 72 6b 2d 72 65 61 64 | 2d 72 65 67 65 78 70 20 |ark-read|-regexp |
|00001670| 22 52 65 6e 61 6d 65 22 | 29 5d 29 0a 23 40 31 30 |"Rename"|)]).#@10|
|00001680| 33 20 43 6f 70 79 20 61 | 6c 6c 20 6d 61 72 6b 65 |3 Copy a|ll marke|
|00001690| 64 20 66 69 6c 65 73 20 | 63 6f 6e 74 61 69 6e 69 |d files |containi|
|000016a0| 6e 67 20 52 45 47 45 58 | 50 20 74 6f 20 4e 45 57 |ng REGEX|P to NEW|
|000016b0| 4e 41 4d 45 2e 0a 53 65 | 65 20 66 75 6e 63 74 69 |NAME..Se|e functi|
|000016c0| 6f 6e 20 60 64 69 72 65 | 64 2d 72 65 6e 61 6d 65 |on `dire|d-rename|
|000016d0| 2d 72 65 67 65 78 70 27 | 20 66 6f 72 20 6d 6f 72 |-regexp'| for mor|
|000016e0| 65 20 69 6e 66 6f 2e 1f | 0a 28 64 65 66 61 6c 69 |e info..|.(defali|
|000016f0| 61 73 20 27 64 69 72 65 | 64 2d 64 6f 2d 63 6f 70 |as 'dire|d-do-cop|
|00001700| 79 2d 72 65 67 65 78 70 | 20 23 5b 28 72 65 67 65 |y-regexp| #[(rege|
|00001710| 78 70 20 6e 65 77 6e 61 | 6d 65 20 26 6f 70 74 69 |xp newna|me &opti|
|00001720| 6f 6e 61 6c 20 61 72 67 | 20 77 68 6f 6c 65 2d 70 |onal arg| whole-p|
|00001730| 61 74 68 29 20 22 c0 c1 | 5c 6e ab 83 c3 aa 81 c4 |ath) "..|\n......|
|00001740| 0d 0e 06 0e 07 0e 08 0e | 09 26 07 87 22 20 5b 64 |........|.&.." [d|
|00001750| 69 72 65 64 2d 64 6f 2d | 63 72 65 61 74 65 2d 66 |ired-do-|create-f|
|00001760| 69 6c 65 73 2d 72 65 67 | 65 78 70 20 64 69 72 65 |iles-reg|exp dire|
|00001770| 64 2d 63 6f 70 79 2d 66 | 69 6c 65 20 64 69 72 65 |d-copy-f|ile dire|
|00001780| 64 2d 63 6f 70 79 2d 70 | 72 65 73 65 72 76 65 2d |d-copy-p|reserve-|
|00001790| 74 69 6d 65 20 22 43 6f | 70 79 20 5b 2d 70 5d 22 |time "Co|py [-p]"|
|000017a0| 20 22 43 6f 70 79 22 20 | 61 72 67 20 72 65 67 65 | "Copy" |arg rege|
|000017b0| 78 70 20 6e 65 77 6e 61 | 6d 65 20 77 68 6f 6c 65 |xp newna|me whole|
|000017c0| 2d 70 61 74 68 20 64 69 | 72 65 64 2d 6b 65 65 70 |-path di|red-keep|
|000017d0| 2d 6d 61 72 6b 65 72 2d | 63 6f 70 79 5d 20 38 20 |-marker-|copy] 8 |
|000017e0| 28 23 24 20 2e 20 35 37 | 36 32 29 20 28 64 69 72 |(#$ . 57|62) (dir|
|000017f0| 65 64 2d 6d 61 72 6b 2d | 72 65 61 64 2d 72 65 67 |ed-mark-|read-reg|
|00001800| 65 78 70 20 22 43 6f 70 | 79 22 29 5d 29 0a 23 40 |exp "Cop|y")]).#@|
|00001810| 31 30 37 20 48 61 72 64 | 6c 69 6e 6b 20 61 6c 6c |107 Hard|link all|
|00001820| 20 6d 61 72 6b 65 64 20 | 66 69 6c 65 73 20 63 6f | marked |files co|
|00001830| 6e 74 61 69 6e 69 6e 67 | 20 52 45 47 45 58 50 20 |ntaining| REGEXP |
|00001840| 74 6f 20 4e 45 57 4e 41 | 4d 45 2e 0a 53 65 65 20 |to NEWNA|ME..See |
|00001850| 66 75 6e 63 74 69 6f 6e | 20 60 64 69 72 65 64 2d |function| `dired-|
|00001860| 72 65 6e 61 6d 65 2d 72 | 65 67 65 78 70 27 20 66 |rename-r|egexp' f|
|00001870| 6f 72 20 6d 6f 72 65 20 | 69 6e 66 6f 2e 1f 0a 28 |or more |info...(|
|00001880| 64 65 66 61 6c 69 61 73 | 20 27 64 69 72 65 64 2d |defalias| 'dired-|
|00001890| 64 6f 2d 68 61 72 64 6c | 69 6e 6b 2d 72 65 67 65 |do-hardl|ink-rege|
|000018a0| 78 70 20 23 5b 28 72 65 | 67 65 78 70 20 6e 65 77 |xp #[(re|gexp new|
|000018b0| 6e 61 6d 65 20 26 6f 70 | 74 69 6f 6e 61 6c 20 61 |name &op|tional a|
|000018c0| 72 67 20 77 68 6f 6c 65 | 2d 70 61 74 68 29 20 22 |rg whole|-path) "|
|000018d0| c0 c1 c2 0b 0c 0d 0e 06 | 0e 07 26 07 87 22 20 5b |........|..&.." [|
|000018e0| 64 69 72 65 64 2d 64 6f | 2d 63 72 65 61 74 65 2d |dired-do|-create-|
|000018f0| 66 69 6c 65 73 2d 72 65 | 67 65 78 70 20 61 64 64 |files-re|gexp add|
|00001900| 2d 6e 61 6d 65 2d 74 6f | 2d 66 69 6c 65 20 22 48 |-name-to|-file "H|
|00001910| 61 72 64 4c 69 6e 6b 22 | 20 61 72 67 20 72 65 67 |ardLink"| arg reg|
|00001920| 65 78 70 20 6e 65 77 6e | 61 6d 65 20 77 68 6f 6c |exp newn|ame whol|
|00001930| 65 2d 70 61 74 68 20 64 | 69 72 65 64 2d 6b 65 65 |e-path d|ired-kee|
|00001940| 70 2d 6d 61 72 6b 65 72 | 2d 68 61 72 64 6c 69 6e |p-marker|-hardlin|
|00001950| 6b 5d 20 38 20 28 23 24 | 20 2e 20 36 31 36 34 29 |k] 8 (#$| . 6164)|
|00001960| 20 28 64 69 72 65 64 2d | 6d 61 72 6b 2d 72 65 61 | (dired-|mark-rea|
|00001970| 64 2d 72 65 67 65 78 70 | 20 22 48 61 72 64 4c 69 |d-regexp| "HardLi|
|00001980| 6e 6b 22 29 5d 29 0a 23 | 40 31 30 36 20 53 79 6d |nk")]).#|@106 Sym|
|00001990| 6c 69 6e 6b 20 61 6c 6c | 20 6d 61 72 6b 65 64 20 |link all| marked |
|000019a0| 66 69 6c 65 73 20 63 6f | 6e 74 61 69 6e 69 6e 67 |files co|ntaining|
|000019b0| 20 52 45 47 45 58 50 20 | 74 6f 20 4e 45 57 4e 41 | REGEXP |to NEWNA|
|000019c0| 4d 45 2e 0a 53 65 65 20 | 66 75 6e 63 74 69 6f 6e |ME..See |function|
|000019d0| 20 60 64 69 72 65 64 2d | 72 65 6e 61 6d 65 2d 72 | `dired-|rename-r|
|000019e0| 65 67 65 78 70 27 20 66 | 6f 72 20 6d 6f 72 65 20 |egexp' f|or more |
|000019f0| 69 6e 66 6f 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |info...(|defalias|
|00001a00| 20 27 64 69 72 65 64 2d | 64 6f 2d 73 79 6d 6c 69 | 'dired-|do-symli|
|00001a10| 6e 6b 2d 72 65 67 65 78 | 70 20 23 5b 28 72 65 67 |nk-regex|p #[(reg|
|00001a20| 65 78 70 20 6e 65 77 6e | 61 6d 65 20 26 6f 70 74 |exp newn|ame &opt|
|00001a30| 69 6f 6e 61 6c 20 61 72 | 67 20 77 68 6f 6c 65 2d |ional ar|g whole-|
|00001a40| 70 61 74 68 29 20 22 c0 | c1 c2 0b 0c 0d 0e 06 0e |path) ".|........|
|00001a50| 07 26 07 87 22 20 5b 64 | 69 72 65 64 2d 64 6f 2d |.&.." [d|ired-do-|
|00001a60| 63 72 65 61 74 65 2d 66 | 69 6c 65 73 2d 72 65 67 |create-f|iles-reg|
|00001a70| 65 78 70 20 6d 61 6b 65 | 2d 73 79 6d 62 6f 6c 69 |exp make|-symboli|
|00001a80| 63 2d 6c 69 6e 6b 20 22 | 53 79 6d 4c 69 6e 6b 22 |c-link "|SymLink"|
|00001a90| 20 61 72 67 20 72 65 67 | 65 78 70 20 6e 65 77 6e | arg reg|exp newn|
|00001aa0| 61 6d 65 20 77 68 6f 6c | 65 2d 70 61 74 68 20 64 |ame whol|e-path d|
|00001ab0| 69 72 65 64 2d 6b 65 65 | 70 2d 6d 61 72 6b 65 72 |ired-kee|p-marker|
|00001ac0| 2d 73 79 6d 6c 69 6e 6b | 5d 20 38 20 28 23 24 20 |-symlink|] 8 (#$ |
|00001ad0| 2e 20 36 35 34 31 29 20 | 28 64 69 72 65 64 2d 6d |. 6541) |(dired-m|
|00001ae0| 61 72 6b 2d 72 65 61 64 | 2d 72 65 67 65 78 70 20 |ark-read|-regexp |
|00001af0| 22 53 79 6d 4c 69 6e 6b | 22 29 5d 29 0a 23 40 31 |"SymLink|")]).#@1|
|00001b00| 33 38 20 52 65 6c 53 79 | 6d 6c 69 6e 6b 20 61 6c |38 RelSy|mlink al|
|00001b10| 6c 20 6d 61 72 6b 65 64 | 20 66 69 6c 65 73 20 63 |l marked| files c|
|00001b20| 6f 6e 74 61 69 6e 69 6e | 67 20 52 45 47 45 58 50 |ontainin|g REGEXP|
|00001b30| 20 74 6f 20 4e 45 57 4e | 41 4d 45 2e 0a 53 65 65 | to NEWN|AME..See|
|00001b40| 20 66 75 6e 63 74 69 6f | 6e 73 20 60 64 69 72 65 | functio|ns `dire|
|00001b50| 64 2d 72 65 6e 61 6d 65 | 2d 72 65 67 65 78 70 27 |d-rename|-regexp'|
|00001b60| 20 61 6e 64 20 60 64 69 | 72 65 64 2d 64 6f 2d 72 | and `di|red-do-r|
|00001b70| 65 6c 73 79 6d 6c 69 6e | 6b 27 0a 20 20 66 6f 72 |elsymlin|k'.  for|
|00001b80| 20 6d 6f 72 65 20 69 6e | 66 6f 2e 1f 0a 28 64 65 | more in|fo...(de|
|00001b90| 66 61 6c 69 61 73 20 27 | 64 69 72 65 64 2d 64 6f |falias '|dired-do|
|00001ba0| 2d 72 65 6c 73 79 6d 6c | 69 6e 6b 2d 72 65 67 65 |-relsyml|ink-rege|
|00001bb0| 78 70 20 23 5b 28 72 65 | 67 65 78 70 20 6e 65 77 |xp #[(re|gexp new|
|00001bc0| 6e 61 6d 65 20 26 6f 70 | 74 69 6f 6e 61 6c 20 77 |name &op|tional w|
|00001bd0| 68 6f 6c 65 2d 70 61 74 | 68 29 20 22 c0 c1 c2 c3 |hole-pat|h) "....|
|00001be0| 0c 0d 0e 06 0e 07 26 07 | 87 22 20 5b 64 69 72 65 |......&.|." [dire|
|00001bf0| 64 2d 64 6f 2d 63 72 65 | 61 74 65 2d 66 69 6c 65 |d-do-cre|ate-file|
|00001c00| 73 2d 72 65 67 65 78 70 | 20 64 69 72 65 64 2d 6d |s-regexp| dired-m|
|00001c10| 61 6b 65 2d 72 65 6c 61 | 74 69 76 65 2d 73 79 6d |ake-rela|tive-sym|
|00001c20| 6c 69 6e 6b 20 22 52 65 | 6c 53 79 6d 4c 69 6e 6b |link "Re|lSymLink|
|00001c30| 22 20 6e 69 6c 20 72 65 | 67 65 78 70 20 6e 65 77 |" nil re|gexp new|
|00001c40| 6e 61 6d 65 20 77 68 6f | 6c 65 2d 70 61 74 68 20 |name who|le-path |
|00001c50| 64 69 72 65 64 2d 6b 65 | 65 70 2d 6d 61 72 6b 65 |dired-ke|ep-marke|
|00001c60| 72 2d 73 79 6d 6c 69 6e | 6b 5d 20 38 20 28 23 24 |r-symlin|k] 8 (#$|
|00001c70| 20 2e 20 36 39 31 35 29 | 20 28 64 69 72 65 64 2d | . 6915)| (dired-|
|00001c80| 6d 61 72 6b 2d 72 65 61 | 64 2d 72 65 67 65 78 70 |mark-rea|d-regexp|
|00001c90| 20 22 52 65 6c 53 79 6d | 4c 69 6e 6b 22 29 5d 29 | "RelSym|Link")])|
|00001ca0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 64 69 72 65 |.(defali|as 'dire|
|00001cb0| 64 2d 63 72 65 61 74 65 | 2d 66 69 6c 65 73 2d 6e |d-create|-files-n|
|00001cc0| 6f 6e 2d 64 69 72 65 63 | 74 6f 72 79 20 23 5b 28 |on-direc|tory #[(|
|00001cd0| 66 69 6c 65 2d 63 72 65 | 61 74 6f 72 20 62 61 73 |file-cre|ator bas|
|00001ce0| 65 6e 61 6d 65 2d 63 6f | 6e 73 74 72 75 63 74 6f |ename-co|nstructo|
|00001cf0| 72 20 6f 70 65 72 61 74 | 69 6f 6e 20 61 72 67 29 |r operat|ion arg)|
|00001d00| 20 22 c0 19 c2 0b 0c c5 | c0 0e 06 5c 22 c7 0e 08 | "......|...\"...|
|00001d10| 25 29 87 22 20 5b 6e 69 | 6c 20 72 65 6e 61 6d 65 |%)." [ni|l rename|
|00001d20| 2d 6e 6f 6e 2d 64 69 72 | 65 63 74 6f 72 79 2d 71 |-non-dir|ectory-q|
|00001d30| 75 65 72 79 20 64 69 72 | 65 64 2d 63 72 65 61 74 |uery dir|ed-creat|
|00001d40| 65 2d 66 69 6c 65 73 20 | 66 69 6c 65 2d 63 72 65 |e-files |file-cre|
|00001d50| 61 74 6f 72 20 6f 70 65 | 72 61 74 69 6f 6e 20 64 |ator ope|ration d|
|00001d60| 69 72 65 64 2d 67 65 74 | 2d 6d 61 72 6b 65 64 2d |ired-get|-marked-|
|00001d70| 66 69 6c 65 73 20 61 72 | 67 20 23 5b 28 66 72 6f |files ar|g #[(fro|
|00001d80| 6d 29 20 22 c0 09 21 5c | 6e c3 09 21 21 50 1c c5 |m) "..!\|n..!!P..|
|00001d90| c6 0e 07 97 0e 07 97 23 | 1e 08 c9 ca 0e 07 cb 50 |.......#|.......P|
|00001da0| cc 09 21 cc 0c 21 24 29 | ad 81 0c 29 87 22 20 5b |..!..!$)|...)." [|
|00001db0| 66 69 6c 65 2d 6e 61 6d | 65 2d 64 69 72 65 63 74 |file-nam|e-direct|
|00001dc0| 6f 72 79 20 66 72 6f 6d | 20 62 61 73 65 6e 61 6d |ory from| basenam|
|00001dd0| 65 2d 63 6f 6e 73 74 72 | 75 63 74 6f 72 20 66 69 |e-constr|uctor fi|
|00001de0| 6c 65 2d 6e 61 6d 65 2d | 6e 6f 6e 64 69 72 65 63 |le-name-|nondirec|
|00001df0| 74 6f 72 79 20 74 6f 20 | 66 6f 72 6d 61 74 20 22 |tory to |format "|
|00001e00| 54 79 70 65 20 53 50 43 | 20 6f 72 20 60 79 27 20 |Type SPC| or `y' |
|00001e10| 74 6f 20 25 73 20 6f 6e | 65 20 66 69 6c 65 2c 20 |to %s on|e file, |
|00001e20| 44 45 4c 20 6f 72 20 60 | 6e 27 20 74 6f 20 73 6b |DEL or `|n' to sk|
|00001e30| 69 70 20 74 6f 20 6e 65 | 78 74 2c 5c 6e 60 21 27 |ip to ne|xt,\n`!'|
|00001e40| 20 74 6f 20 25 73 20 61 | 6c 6c 20 72 65 6d 61 69 | to %s a|ll remai|
|00001e50| 6e 69 6e 67 20 6d 61 74 | 63 68 65 73 20 77 69 74 |ning mat|ches wit|
|00001e60| 68 20 6e 6f 20 6d 6f 72 | 65 20 71 75 65 73 74 69 |h no mor|e questi|
|00001e70| 6f 6e 73 2e 22 20 6f 70 | 65 72 61 74 69 6f 6e 20 |ons." op|eration |
|00001e80| 68 65 6c 70 2d 66 6f 72 | 6d 20 64 69 72 65 64 2d |help-for|m dired-|
|00001e90| 71 75 65 72 79 20 72 65 | 6e 61 6d 65 2d 6e 6f 6e |query re|name-non|
|00001ea0| 2d 64 69 72 65 63 74 6f | 72 79 2d 71 75 65 72 79 |-directo|ry-query|
|00001eb0| 20 22 20 60 25 73 27 20 | 74 6f 20 60 25 73 27 22 | " `%s' |to `%s'"|
|00001ec0| 20 64 69 72 65 64 2d 6d | 61 6b 65 2d 72 65 6c 61 | dired-m|ake-rela|
|00001ed0| 74 69 76 65 5d 20 36 5d | 20 64 69 72 65 64 2d 6b |tive] 6]| dired-k|
|00001ee0| 65 65 70 2d 6d 61 72 6b | 65 72 2d 72 65 6e 61 6d |eep-mark|er-renam|
|00001ef0| 65 5d 20 36 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |e] 6]).(|defalias|
|00001f00| 20 27 64 69 72 65 64 2d | 72 65 6e 61 6d 65 2d 6e | 'dired-|rename-n|
|00001f10| 6f 6e 2d 64 69 72 65 63 | 74 6f 72 79 20 23 5b 28 |on-direc|tory #[(|
|00001f20| 62 61 73 65 6e 61 6d 65 | 2d 63 6f 6e 73 74 72 75 |basename|-constru|
|00001f30| 63 74 6f 72 20 6f 70 65 | 72 61 74 69 6f 6e 20 61 |ctor ope|ration a|
|00001f40| 72 67 29 20 22 c0 c1 5c | 6e 0b 0c 24 87 22 20 5b |rg) "..\|n..$." [|
|00001f50| 64 69 72 65 64 2d 63 72 | 65 61 74 65 2d 66 69 6c |dired-cr|eate-fil|
|00001f60| 65 73 2d 6e 6f 6e 2d 64 | 69 72 65 63 74 6f 72 79 |es-non-d|irectory|
|00001f70| 20 64 69 72 65 64 2d 72 | 65 6e 61 6d 65 2d 66 69 | dired-r|ename-fi|
|00001f80| 6c 65 20 62 61 73 65 6e | 61 6d 65 2d 63 6f 6e 73 |le basen|ame-cons|
|00001f90| 74 72 75 63 74 6f 72 20 | 6f 70 65 72 61 74 69 6f |tructor |operatio|
|00001fa0| 6e 20 61 72 67 5d 20 35 | 5d 29 0a 23 40 35 34 20 |n arg] 5|]).#@54 |
|00001fb0| 52 65 6e 61 6d 65 20 61 | 6c 6c 20 6d 61 72 6b 65 |Rename a|ll marke|
|00001fc0| 64 20 28 6f 72 20 6e 65 | 78 74 20 41 52 47 29 20 |d (or ne|xt ARG) |
|00001fd0| 66 69 6c 65 73 20 74 6f | 20 75 70 70 65 72 20 63 |files to| upper c|
|00001fe0| 61 73 65 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ase...(d|efalias |
|00001ff0| 27 64 69 72 65 64 2d 75 | 70 63 61 73 65 20 23 5b |'dired-u|pcase #[|
|00002000| 28 26 6f 70 74 69 6f 6e | 61 6c 20 61 72 67 29 20 |(&option|al arg) |
|00002010| 22 c0 c1 c2 0b 23 87 22 | 20 5b 64 69 72 65 64 2d |"....#."| [dired-|
|00002020| 72 65 6e 61 6d 65 2d 6e | 6f 6e 2d 64 69 72 65 63 |rename-n|on-direc|
|00002030| 74 6f 72 79 20 75 70 63 | 61 73 65 20 22 52 65 6e |tory upc|ase "Ren|
|00002040| 61 6d 65 20 75 70 63 61 | 73 65 22 20 61 72 67 5d |ame upca|se" arg]|
|00002050| 20 34 20 28 23 24 20 2e | 20 38 31 31 32 29 20 22 | 4 (#$ .| 8112) "|
|00002060| 50 22 5d 29 0a 23 40 35 | 34 20 52 65 6e 61 6d 65 |P"]).#@5|4 Rename|
|00002070| 20 61 6c 6c 20 6d 61 72 | 6b 65 64 20 28 6f 72 20 | all mar|ked (or |
|00002080| 6e 65 78 74 20 41 52 47 | 29 20 66 69 6c 65 73 20 |next ARG|) files |
|00002090| 74 6f 20 6c 6f 77 65 72 | 20 63 61 73 65 2e 1f 0a |to lower| case...|
|000020a0| 28 64 65 66 61 6c 69 61 | 73 20 27 64 69 72 65 64 |(defalia|s 'dired|
|000020b0| 2d 64 6f 77 6e 63 61 73 | 65 20 23 5b 28 26 6f 70 |-downcas|e #[(&op|
|000020c0| 74 69 6f 6e 61 6c 20 61 | 72 67 29 20 22 c0 c1 c2 |tional a|rg) "...|
|000020d0| 0b 23 87 22 20 5b 64 69 | 72 65 64 2d 72 65 6e 61 |.#." [di|red-rena|
|000020e0| 6d 65 2d 6e 6f 6e 2d 64 | 69 72 65 63 74 6f 72 79 |me-non-d|irectory|
|000020f0| 20 64 6f 77 6e 63 61 73 | 65 20 22 52 65 6e 61 6d | downcas|e "Renam|
|00002100| 65 20 64 6f 77 6e 63 61 | 73 65 22 20 61 72 67 5d |e downca|se" arg]|
|00002110| 20 34 20 28 23 24 20 2e | 20 38 32 39 38 29 20 22 | 4 (#$ .| 8298) "|
|00002120| 50 22 5d 29 0a          |                         |P"]).   |        |
+--------+-------------------------+-------------------------+--------+--------+